Option Explicit
Sub D_Sample001()
    Dim myRng As Range
    Set myRng = Range("A1:A3")				'Nxsd
    'ǳƨ즹
    myRng.Merge
    'myRng.MergeCells = True
    Set myRng = Nothing						'
End Sub

